Voorbeeld van de functie StrComp

Dit voorbeeld maakt gebruik van de functie StrComp om het resultaat van een tekenreeksvergelijking te geven. Als het derde argument 1 is, wordt een tekstvergelijking uitgevoerd; als het derde argument 0 is of ontbreekt, wordt een binaire vergelijking uitgevoerd.

Dim MyStr1, MyStr2, MyComp
MyStr1 = "ABCD": MyStr2 = "abcd"    ' Definieert variabelen.
MyComp = StrComp(MyStr1, MyStr2, 1)    ' Geeft 0.
MyComp = StrComp(MyStr1, MyStr2, 0)    ' Geeft -1.
MyComp = StrComp(MyStr2, MyStr1)    ' Geeft 1.